﻿
Public Class SolicitudServicioBE

    'Nuevo servicio
    Dim iCodSolicitud As Integer
    Dim strServicio As String
    Dim strProveedores As String
    Dim strUnidad As String
    Dim strFechaLanz As Date
    Dim strObservaciones As String
    Dim strUsuarioCreador As String
    Dim strUsuarioActualiza As String

    'agregados para consulta
    Dim strEstado As String
    Dim strFInicio As String
    Dim strFFin As String

    Public Sub New()

    End Sub

    Public Sub New(ByVal Codigo As Integer)
        iCodSolicitud = Codigo
    End Sub


    Public Property CodSolicitud() As Integer
        Get
            Return iCodSolicitud
        End Get
        Set(ByVal value As Integer)
            iCodSolicitud = value
        End Set
    End Property

    Public Property NombreServicio() As String
        Get
            Return strServicio
        End Get
        Set(ByVal value As String)
            strServicio = value
        End Set
    End Property

    Public Property Proveedores() As String
        Get
            Return strProveedores
        End Get
        Set(ByVal value As String)
            strProveedores = value
        End Set
    End Property

    Public Property Unidad() As String
        Get
            Return strUnidad
        End Get
        Set(ByVal value As String)
            strUnidad = value
        End Set
    End Property

    Public Property FechaLanzamiento() As Date
        Get
            Return strFechaLanz
        End Get
        Set(ByVal value As Date)
            strFechaLanz = value
        End Set
    End Property
    Public Property Observaciones() As String
        Get
            Return strObservaciones
        End Get
        Set(ByVal value As String)
            strObservaciones = value
        End Set
    End Property


    Public Property UsuarioCreador() As String
        Get
            Return strUsuarioCreador
        End Get
        Set(ByVal value As String)
            strUsuarioCreador = value
        End Set
    End Property

    Public Property UsuarioActualiza() As String
        Get
            Return strUsuarioActualiza
        End Get
        Set(ByVal value As String)
            strUsuarioActualiza = value
        End Set
    End Property

    Public Property Estado() As String
        Get
            Return strEstado
        End Get
        Set(ByVal value As String)
            strEstado = value
        End Set
    End Property

    Public Property FechaInicio() As String
        Get
            Return strFInicio
        End Get
        Set(ByVal value As String)
            strFInicio = value
        End Set
    End Property

    Public Property FechaFin() As String
        Get
            Return strFFin
        End Get
        Set(ByVal value As String)
            strFFin = value
        End Set
    End Property


End Class
